Aminet 22/Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso/Aminet/game/role/DSA_Utils.lha/DSA-Utils/DSA_Haeuser.tex

Text File | 1997-09-21 | 6.3 KB | 245 lines

\newsavebox{\HausEins}
\newsavebox{\HausZwei}
\newsavebox{\HausDrei}
\newsavebox{\HausVier}
\newsavebox{\HausFuenf}
\newsavebox{\TempelEins}
\newsavebox{\TempelZwei}
\newsavebox{\HotelEins}
\newsavebox{\HotelZwei}
\newsavebox{\HotelDrei}
\newsavebox{\KneipeEins}
\newsavebox{\KneipeZwei}
\newsavebox{\HandwI}
\newsavebox{\HandwII}
\newsavebox{\HandwIII}
\newsavebox{\Gross}
\newsavebox{\HaendlI}
\newsavebox{\HaendlII}
\newsavebox{\HaendlIII}
\newsavebox{\DienstI}
\newsavebox{\DienstII}
\newsavebox{\Heilk}
\newsavebox{\Markt}
\newsavebox{\Teich}
\newsavebox{\BaumEins}
\newsavebox{\BaumZwei}
\newsavebox{\BaumDrei}
\newsavebox{\Leer}

\unitlength\un
    % Die vielen % am Zeilenende sind nötig, da sonst einige
    % Gebäude einen Offset haben (und in andere reinragen).
\newcount\xpos \newcount\ypos
\def\cross(#1,#2)(#3,#4){%
% malt ein Viereck mit Kreuz drin; untenlinks=(#1,#2), B,H=#3,#4
\xpos#1\advance\xpos#3\ypos#2\advance\ypos#4%
\path(#1,#2)(\xpos,#2)(\xpos,\ypos)(#1,\ypos)(#1,#2)%
\path(#1,#2)(\xpos,\ypos)\path(#1,\ypos)(\xpos,#2)%
}
\newcount\dachxa\newcount\dachya\newcount\dachxb\newcount\dachyb
\newcount\mytemp
\def\dachh(#1,#2)(#3,#4){    % macht ein hübsches Dach :) horizontal
\xpos#1\advance\xpos#3\ypos#2\advance\ypos#4%
\path(#1,#2)(\xpos,#2)(\xpos,\ypos)(#1,\ypos)(#1,#2)%
\mytemp#4\divide\mytemp 2%
\dachya#2\advance\dachya\mytemp%
\multiply\mytemp 3\divide\mytemp 4%
\dachxa#1\advance\dachxa\mytemp%
\dachxb#1\advance\dachxb #3\advance\dachxb-\mytemp%
\path(#1,#2)(\dachxa,\dachya)(#1,\ypos)%
\path(\xpos,#2)(\dachxb,\dachya)(\xpos,\ypos)%
\path(\dachxa,\dachya)(\dachxb,\dachya)%
}
\def\dachv(#1,#2)(#3,#4){    % macht ein hübsches Dach :) vertikal
\xpos#1\advance\xpos#3\ypos#2\advance\ypos#4%
\path(#1,#2)(\xpos,#2)(\xpos,\ypos)(#1,\ypos)(#1,#2)%
\mytemp#3\divide\mytemp 2%
\dachxa#1\advance\dachxa\mytemp%
\multiply\mytemp 3\divide\mytemp 4%
\dachya#2\advance\dachya\mytemp%
\dachyb#2\advance\dachyb #4\advance\dachyb-\mytemp%
\path(#1,#2)(\dachxa,\dachya)(\xpos,#2)%
\path(#1,\ypos)(\dachxa,\dachyb)(\xpos,\ypos)%
\path(\dachxa,\dachya)(\dachxa,\dachyb)%
}
\def\dach(#1,#2)(#3,#4){%
 \ifnum#3>#4\dachh(#1,#2)(#3,#4)%
 \else\dachv(#1,#2)(#3,#4)\fi%
}

\savebox{\HausEins}(0,0)[bl]{%
\put(12,19){\framebox(10,5){}}%
\dach(2,2)(25,15)%
}
\savebox{\HausZwei}(0,0)[bl]{%
\put(5,2){\framebox(18,8){}}\path(5,6)(23,6)%
\put(3,12){\dashbox{2}(25,16){}}%
\put(27,4){\circle{4}}%
\put(25,4){\line(1,0){4}}%
}
\savebox{\HausDrei}(0,0)[bl]{%
\dach(10,10)(18,14)%
\put(12,2){\framebox(10,5){}}%
}
\savebox{\HausVier}(0,0)[bl]{%
\path(3,3)(23,3)(23,13)(13,13)(13,27)(3,27)(3,3)%
\path(3,3)(13,13)\path(3,27)(8,22)(13,27)%
\path(23,3)(17,8)(23,13)\path(8,22)(8,8)(17,8)%
\put(23,20){\circle{5}}%
\put(24,16){\circle{3}}%
\put(26,23){\circle{4}}%
}
\savebox{\HausFuenf}(0,0)[bl]{%
\put(8,2){\framebox(14,12){}}%
\path(8,8)(22,8)%
\path(2,20)(8,14)\path(28,20)(22,14)%
\path(8,6)(2,6)(2,20)(28,20)(28,6)(22,6)%
\put(5,27){\circle{4}}%
\put(3,27){\line(1,0){4}}%
\put(20,24){\dashbox{2}(8,6){}}%
}
\savebox{\TempelEins}(0,0)[bl]{%
\path(5,20)(5,2)(17,2)(17,20)%
\put(11,20){\oval(12,8)[t]}%
\path(5,2)(11,5)(17,2)\path(11,5)(11,20)%
\put(18,5){\framebox(5,10){}}%
}
\savebox{\TempelZwei}(0,0)[bl]{%
\path(2,18)(2,2)(28,2)(28,18)%
\path(8,2)(8,27)\path(22,2)(22,27)\path(2,21)(28,21)%
\path(8,21)(4,24.5)\path(22,21)(25.5,24.5)%
\put(15,18){\oval(26,18)[t]}%
}
\savebox{\HotelEins}(0,0)[bl]{%
\dach(2,2)(26,16)%
\put(5,20){\framebox(8,5){}}%
\put(20,25){\circle{4}}%
\put(18,25){\line(1,0){4}}%
}
\savebox{\HotelZwei}(0,0)[bl]{%
\dach(4,2)(12,20)%
\put(20,2){\framebox(8,20){}}%
\path(20,12)(28,12)%
}
\savebox{\HotelDrei}(0,0)[bl]{%
\dach(0,0)(20,15)%
\path(18,10)(28,10)(28,26)(10,26)(10,15)%
\path(28,26)(23,18)(28,10)\path(23,18)(10,18)%
\put(3,27){\circle{4}}%
\put(3,25){\line(0,1){4}}%
}
\savebox{\KneipeEins}(0,0)[bl]{%
\cross(6,3)(20,20)%
\put(20,23){\framebox(8,5){}}%
}
\savebox{\KneipeZwei}(0,0)[bl]{%
\path(17,22)(2,22)(2,2)(22,2)(22,15)%
\put(12,2){\line(0,1){20}}%
\put(17,15){\framebox(10,12){}}%
\put(26,5){\circle{4}}%
\put(24,5){\line(1,0){4}}%
}
\savebox{\HandwI}(0,0)[bl]{%
\dach(5,5)(22,15)%
}
\savebox{\HandwII}(0,0)[bl]{%
\put(14,3){\framebox(10,10){}}%
\dach(4,13)(10,15)%
\put(16,15){\dashbox{2}(10,12){}}%
}
\savebox{\HandwII}(0,0)[bl]{%
\dach(10,3)(10,20)%
\put(3,5){\circle{4}}%
\put(3,3){\line(0,1){4}}%
\put(2,10){\framebox(6,12){}}%
\put(5,10){\line(0,1){12}}%
\put(25,6){\circle{6}}%
\put(27,10){\circle{5}}%
\put(26,17){\circle{7}}%
\put(24,21){\circle{6}}%
\put(25,27){\circle{4}}%
}
\savebox{\HandwIII}(0,0)[b]{%
\dach(3,3)(25,10)%
\put(5,13){\framebox(15,8){}}%
\put(22,15){\framebox(6,6){}}%
\put(22,18){\line(1,0){6}}%
}
\savebox{\Gross}(0,0)[bl]{%
\dach(1,1)(28,20)%
\put(12,21){\framebox(15,8){}}%
}
\savebox{\HaendlI}(0,0)[bl]{%
\dach(15,3)(10,20)%
\cross(2,5)(10,15)%
}
\savebox{\HaendlII}(0,0)[bl]{%
\dach(7,12)(20,15)%
\path(7,22)(2,22)(2,2)(22,2)(22,12)%
\path(2,2)(7,12)%
\put(3,26){\circle{4}}%
\put(1,26){\line(1,0){4}}%
}
\savebox{\HaendlIII}(0,0)[bl]{%
\dach(10,12)(18,10)%
\put(8,24){\framebox(12,5){}}%
}
\savebox{\DienstI}(0,0)[bl]{%
\path(2,2)(28,2)(28,22)(23,22)(23,29)(13,29)(13,24)(7,24)(7,27)(2,27)(2,2)%
\path(2,22)(23,22)%
\path(2,14)(28,14)%
}
\savebox{\DienstII}(0,0)[bl]{%
\dach(5,2)(25,16)%
\put(2,18){\dashbox{2}(20,10){}}%
\put(25,25){\circle{4}}%
\put(25,23){\line(0,1){4}}%
}
\savebox{\Heilk}(0,0)[bl]{%
\put(10,10){\framebox(15,12){}}%
\put(10,16){\line(1,0){15}}%
\put(6,4){\circle{4}}%
\put(6,2){\line(0,1){4}}%
\put(15,23){\framebox(10,6){}}%
}
\savebox{\Markt}(60,60)[bl]{%
\put(2,2){\dashbox{1}(58,58)[bl]{\raisebox{\un}{\footnotesize~Markt}}}%
}
\savebox{\Teich}(0,0)[bl]{%
\put(15,15){\oval(25,20)}%
\multiput(10,8)(0,4){4}{\multiput(0,0)(4,0){4}{\makebox(0,0){\~{}}}}%
}
\savebox{\BaumEins}(0,0)[bl]{%
\put(10,10){\circle{12}}%
\put(15,20){\circle{10}}%
\put(7,22){\circle{8}}%
\put(17,26){\circle{8}}%
\put(23,21){\circle{9}}%
}
\savebox{\BaumZwei}(0,0)[bl]{%
\put(14,19){\circle{12}}%
\put(25,10){\circle{10}}%
\put(17,12){\circle{8}}%
\put(17,23){\circle{8}}%
\put(24,20){\circle{9}}%
}
\savebox{\BaumDrei}(0,0)[bl]{%
\put(5,5){\circle{7}}%
\put(12,5){\circle{6}}%
\put(16,5){\circle{8}}%
\put(23,5){\circle{7}}%
\put(6,15){\circle{5}}%
\put(11,12){\circle{6}}%
\put(19,13){\circle{7}}%
\put(25,11){\circle{9}}%
\put(3,25){\circle{6}}%
\put(10,23){\circle{8}}%
\put(17,21){\circle{6}}%
\put(23,17){\circle{7}}%
\put(26,22){\circle{5}}%
}
\savebox{\Leer}(0,0)[bl]{%
 % Leer eben...
}